home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / 1svga.zip / SCREEN.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-29  |  1KB  |  51 lines
  1. { Make VGA-Show Screen }
  2.  
  3. uses SVGA256,Txt;
  4.  
  5. { ─────────────── PrtC ─────────────── }
  6. procedure PrtC(Ty,X,Y,Color,Count:integer;St:string);
  7. begin
  8.   Print(X+1,Y+1,0,St);
  9.   PrintColor(Ty,X,Y,Color,Count,St);
  10. end;
  11. { ─────────────── Prt2 ─────────────── }
  12. procedure Prt2(X,Y,Color:integer;St:string);
  13. begin
  14.   Print(X+1,Y+1,0,St);
  15.   Print2(X,Y,Color,St);
  16. end;
  17. { ─────────────── Screen ─────────────── }
  18. procedure Screen;
  19. var A:array[0..4999] of byte;
  20.     I,J:integer;
  21. begin
  22.   FillChar(A,1000,1);
  23.   Randomize;
  24.   ColorRandom(40,25,148,2,1,A);
  25.   for J:=0 to 7 do for I:=0 to 7 do Put(40*I,25*J,40,25,A);
  26.   FileRead('2424bld.fnt',0,36,72,A);
  27.   InstallFont(1,24,24,55,36,24,A);
  28.   PrtC(1, 20,15,63,2,'JOU');
  29.   PrtC(1,105,15,63,2,'NAN');
  30.   PrtC(1,195,15,63,2,'CHEN');
  31.   FileRead('1616bld#.fnt',0,96,32,A);
  32.   InstallFont(2,16,16,32,96,16,A);
  33.   PrtC(1, 94,20,64,2,'-');
  34.   PrtC(1,30, 50,64,2,'Chen''s First Album');
  35.   PrtC(1,20,175,64,2,'(C) 1994 by Jou-Nan Chen');
  36.   FileRead('1212sim#.fnt',0,96,24,A);
  37.   InstallFont(2,16,12,32,96,16,A);
  38.   Prt2(30, 80,63,'Apply / Block / Color / Dirs / Fonts');
  39.   Prt2(30, 95,63,'GR_Demo / GR_Units / Hard / LookC');
  40.   Prt2(30,110,63,'Menu_Txt / MousTest / Palette / Part');
  41.   Prt2(30,125,63,'PM / PrintC / Resize / Screen / Show');
  42.   Prt2(30,140,63,'Sorts / VGATSR / VMode / Win_Text');
  43. end;
  44.  
  45. begin
  46.   SetMode(1);
  47.   Screen;
  48.   Readln;
  49.   SetMode(0);
  50. end.
  51.